﻿<!-- #include file="ding.asp" -->
<!--#include file="mymin.asp"-->
<%Call Head()
IF KEY<>0 then
	Call Error("<card title=""出错""><p>你的权限不足！")
end if

dim pp,id
pp=request.querystring("lx")
id=request.querystring("id")
if id="" or IsNumeric(id)=False then
	Call Error("<card title=""出错""><p>ID无效！")
end if
if pp="" or IsNumeric(pp)=False then
	Call Error("<card title=""出错""><p>ID无效！")
end if
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_class where classid="&id,myconn,1,1

if rs.bof and rs.eof then
	notclass
else
	classright
end if

sub classright()
	if pp=0 then
%>
<card title="编辑页面菜单">
<p>名称:<%=nowml(rs("class"))%><br/>
类型:新的页面<br/>
请输入新页面名称<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='0'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%elseif pp=1 then%>
<card title="编辑文章栏目">
<p>名称:<%=nowml(rs("class"))%><br/>
类型:文章栏目<br/>
请输入新栏目名称<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='1'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
<postfield name="relid" value="<%=rs("relid")%>"/>
</go>
</anchor>
<%elseif pp=2 then%>
<card title="编辑UBB标签">
<p>名称:<%=nowml(rs("class"))%><br/>
类型:UBB标签<br/><a href="ubbcl.asp?sid=<%=sid%>">[UBB说明]</a><br/>后台标记<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
UBB内容<br/><input name="wmltxt<%=time_r%>" title="名称" value="<%=nowml(rs("wmltxt"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='2'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%elseif pp=3 then%>
<card title="编辑论坛菜单">
<p>名称:<%=nowml(rs("class"))%><br/>
类型:论坛菜单<br/>
新的名称<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='3'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
<postfield name="relid" value="<%=rs("relid")%>"/>
</go>
</anchor>
<%elseif pp=9 then%>
<card title="修改WML标签">
<p>
类型:WML标签<br/>新WML标签标记:<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
新WML标签内容:<br/><input name="wmltxt<%=time_r%>" title="名称" value="<%=nowml(rs("wmltxt"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='9'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor><br/>提示:WML链接支持[sid]防断线
<%elseif pp=8 then%>
<card title="编辑随机广告">
<p>名称:<%=nowml(rs("class"))%><br/>
类型:随机广告<br/>新广告名称标记:<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="URL" value="$(URL<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='8'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor>
<%else
Dim cname,relid
if pp=10 then
	cname="最新文章"
elseif pp=11 then
	cname="最热文章"
elseif pp=12 then
	cname="随机文章"
elseif pp=13 then
	cname="最新帖子"
elseif pp=14 then
	cname="最热帖子"
elseif pp=15 then
	cname="随机帖子"
elseif pp=16 then
	cname="推荐文章"
elseif pp=17 then
	cname="精华帖子"
elseif pp=19 then
	cname="站内搜框"
elseif pp=20 then
	cname="网站群聊"
end if
relid=rs("relid")
If relid=0 Then relid=rs("wmltxt")
%>
<card title="编辑调用栏目">
<p>名称:<%=nowml(rs("class"))%><br/>
类型:调用栏目-<%=cname%>
<br/>调用栏目名:<br/><input name="class1<%=time_r%>" title="名称" value="<%=nowml(rs("class"))%>"/><br/>
调用栏目(留空则为全部栏目):<br/>栏目ID<input name="relid<%=time_r%>" title="栏目ID" value="<%=relid%>"/><br/>
调用条数:<br/><input name="num<%=time_r%>" title="条数" value="<%=rs("num")%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=rs("br")%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=rs("pid")%>" size="2"/><br/>
是否隐藏:<select name="hide<%=time_r%>" value="<%=rs("hide")%>"><option value="0">直接显示</option><option value="1">前台隐藏</option></select><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name="num" value="$(num<%=time_r%>)"/>
<postfield name="wmltxt" value="$(relid<%=time_r%>)"/>
<postfield name="relid" value="0"/>
<postfield name='lx' value='<%=pp%>'/>
<postfield name='hide' value='$(hide<%=time_r%>)'/>
</go>
</anchor><br/>
调用多个栏目ID请用英文逗号(,)隔开
<%end if%>
<br/>----------<br/>
<% if rs("parent")<>0 then %>
<a href='Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=pp%>'>[栏目分类]</a><br/>
<%end if%>
<a href='class.asp?sid=<%=sid%>'>[栏目分类]</a>
<%
End Sub

sub notclass()%>
<card title="出错了">
<p align="left">
没有这个栏目!
<br/>----------<br/>
<a href='class.asp?sid=<%=sid%>'>返回栏目管理</a><%
End Sub
rs.close
set rs=nothing
call rootLast%>